perm filename FACT.FAI[P,JRA] blob sn#161038 filedate 1975-05-28 generic text, type C, neo UTF8
COMMENT āŠ—   VALID 00002 PAGES
C REC  PAGE   DESCRIPTION
C00001 00001
C00002 00002	title fact test
C00003 ENDMK
CāŠ—;
title fact test
;a (buggy) version of factorial
ac1=1
ac2=2
p=14
pdl:	block 30

fact:	
	jumpe ac1,l
	push p,ac1
	subi ac1,1
	pushj p,fact
	pop p,ac2
	mul 1,2
	popj p,0
l:	movei ac1,1
	popj p,0


testem: move p,[iowd -30,pdl]
	move ac1,0
	pushj p,fact
	jrst testem

end